home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / c / remote.lha / remote / Install next >
Text File  |  1997-10-09  |  2KB  |  115 lines
  1. ; $VER: 1.0 All rights reserved.
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. (complete 0)
  6.  
  7. (set app-name "ShowURL")
  8.  
  9. (message (cat "\n"
  10.  
  11.     "                                            \n"
  12.     "RA ©1997 Dietmar Eilert                     \n"
  13.     "         Dietmar.Eilert@post.rwth-aachen.de \n"
  14.     "         All Rights Reserved                \n"
  15.     "                                            \n"
  16.     "A shared library for remote application     \n"
  17.     "handling.                                   \n"
  18. ))
  19.  
  20. ; read configuration from environment variables
  21.  
  22. (copylib
  23.  
  24.     (prompt "Install shared library ?")
  25.  
  26.     (source "libs/remote.library")
  27.  
  28.     (dest   "libs:")
  29.  
  30.     (confirm)
  31.  
  32.     (help @copylib-help)
  33. )
  34.  
  35. ; install database
  36.  
  37. (if (getenv "remote.cfg")
  38.  
  39.     (
  40.         (set @cfgfile (getenv "remote.cfg"))
  41.  
  42.         ; get rid of LF
  43.  
  44.         (set @cfgfile (substr @cfgfile 0 (- (strlen @cfgfile) 1)))
  45.     )
  46.  
  47.     (set @cfgfile "s:remote.ini")
  48. )
  49.  
  50. (if (exists @cfgfile)
  51.  
  52.     (set @overwrite (askbool
  53.  
  54.         (prompt "Overwrite existing configuration ?")
  55.  
  56.         (help @askbool-help)
  57.  
  58.         (default 0)
  59.     ))
  60.  
  61.     (set @overwrite 1)
  62. )
  63.  
  64. (if (= @overwrite 1)
  65.  
  66.     (copyfiles
  67.  
  68.         (source "database/remote.ini")
  69.  
  70.         (dest (pathonly @cfgfile))
  71.  
  72.         (newname (fileonly @cfgfile))
  73.     )
  74. )
  75.  
  76. ; install the rest
  77.  
  78. (set @default-dest
  79.  
  80.     (askdir
  81.  
  82.         (prompt "Where would you like to install the developer material ? A new directory is created in the path you specify:")
  83.  
  84.         (help @askdir-help)
  85.  
  86.         (default @default-dest)
  87.     )
  88. )
  89.  
  90. (copyfiles
  91.  
  92.     (source (expandpath ""))
  93.  
  94.     (dest (tackon @default-dest "RA"))
  95.  
  96.     (all)
  97.  
  98.     (infos)
  99. )
  100.  
  101. ; set environment variable
  102.  
  103. (run (cat "echo >envarc:remote.cfg " @cfgfile))
  104.  
  105. (run (cat "echo >env:remote.cfg " @cfgfile))
  106.  
  107. ; delete obsolete files
  108.  
  109. (delete (tackon @default-dest "RA/Install"))
  110. (delete (tackon @default-dest "RA/Install.info"))
  111.  
  112. (exit)
  113.  
  114. (welcome)
  115.